Format data

ffi_tidy <- ffi_total %>%
  drop_na(age, gender) %>%
  pivot_longer(
    cols = c(pf_recent, pv_recent),
    names_to = "typeofplasmodium",
    values_to = "seropositive"
    ) %>%
    mutate(
        seropositive = case_when(
            seropositive == "Positive" ~ 1,
            TRUE ~ 0
        )
    )

ffi_tidy %>%
  rmarkdown::paged_table()